com!online 2005 May/com_0505_1.iso/opensource/top10/amc_install.exe/{app}/Scripts/Video Guide (RU).ifs

Text File | 2004-03-20 | 14.3 KB | 476 lines

// GETINFO SCRIPTING
// Imports russian movies info from VideoGuide

(***************************************************
 *  Movie information import script for:           *
 *    VideoGuide Russian,                          *
 *    http://www.videoguide.ru/                    *
 *                                                 *
 *  (c) 2002 Yan Sorkin       [e-mail]      *
 *                                                 *
 *  Last update:                                   *
 *  - 22.10.2002                                   *
 *                                                 *
 *  Known issues:                                  *
 *  - none                                         *
 *                                                 *
 *  For use with Ant Movie Catalog 3.4.0           *
 *  www.antp.be/software/moviecatalog              *
 *                                                 *
 *  This program is free software; you can         *
 *  redistribute it and/or modify it under the     *
 *  terms of the GNU General Public License as     *
 *  published by the Free Software Foundation;     *
 *  either version 2 of the License, or (at your   *
 *  option) any later version.                     *
 ***************************************************)

program VideoGuide;
const
  BaseAddress = 'http://www.videoguide.ru/';
//  BaseAddress = 'http://localhost/';
var
  MovieName: string;

function GetTextBlockFrom(Text: string; StartAt: string): string;
var
  TextBlock: string;
  StartPos, EndPos: Integer;
begin
  TextBlock := Text;
  StartPos := pos(StartAt, TextBlock);
  if StartPos > 0 then
  begin
    Delete(TextBlock, 1, StartPos - 1);
    result := TextBlock;
  end;
end;

function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(Pattern, List.GetString(i)) <> 0 then
    begin
      result := i;
      Break;
    end;
end;

procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  Line: string;
  TextBlock: string;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  if pos('<TITLE>┬ΦΣσε├ΦΣ(R) - ╧εΦ±Ω ⌠Φδⁿ∞α "', Page.Text) = 0 then
  begin
    SetField(fieldURL, Address);
    if pos('<TITLE>┬ΦΣσε├ΦΣ(R) - ╨σδΦτ φα DVD', Page.Text) > 0 then
    begin
        AnalyzeVideoPage(Page);
    end else
    if pos('<TITLE>┬ΦΣσε├ΦΣ(R) - ╨σδΦτ φα ΓΦΣσε', Page.Text) > 0 then
    begin
        AnalyzeVideoPage(Page);
    end else
    begin
        AnalyzeMoviePage(Page);
    end;
  end else
  if pos('ReDirect("', Page.Text) > 0 then
  begin
    AnalyzeRedirectPage(Page);
  end else
  begin
    PickTreeClear;
    LineNr := FindLine('┬±σπε φαΘΣσφε ⌠Φδⁿ∞εΓ Γ ε±φεΓφεΘ ßατσ', Page, 0);
    if LineNr > -1 then
    begin
      PickTreeAdd('Movies', '');
      AddMoviesTitles(Page, LineNr);
    end;
    TextBlock := GetTextBlockFrom(Page.Text, '┬±σπε φαΘΣσφε ⌠Φδⁿ∞εΓ Γ ßατσ ΓΦΣσε≡σδΦτεΓ');
    if Length(TextBlock) > 0 then
    begin
      PickTreeAdd('Released on video', '');
      AddReleasesTitles(TextBlock);
    end;
    TextBlock := GetTextBlockFrom(Page.Text, '┬±σπε φαΘΣσφε ⌠Φδⁿ∞εΓ Γ ßατσ ≡σδΦτεΓ DVD');
    if Length(TextBlock) > 0 then
    begin
      PickTreeAdd('Released on DVD', '');
      AddReleasesTitles(TextBlock);
    end;
    LineNr := FindLine('╤∞. ≥αΩµσ:</b> ε±≥αΓ°Φσ±  <a href="', Page, LineNr);
    if LineNr > -1 then
    begin
      AddFindMoreLink(Page, LineNr);
    end;
    if PickTreeExec(Address) then
      AnalyzePage(Address);
  end;
  Page.Free;
end;

procedure AnalyzeMoviePage(Page: TStringList);
var
  Line, Value, Value2, FullValue: string;
  LineNr, MovieLength: Integer;
  BeginPos, EndPos: Integer;
begin

  // Original Title & Year
  LineNr := FindLine('<TITLE>', Page, 0);
  Line := Page.GetString(LineNr);
  if LineNr > -1 then
  begin
    BeginPos := pos('<TITLE>┬ΦΣσε├ΦΣ(R) - ', Line);
    if BeginPos > 0 then
      BeginPos := BeginPos + 21;
    EndPos := pos(' (', Line);
    if EndPos = 0 then
      EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    Value := AnsiLowerCase(Value);
    Value := AnsiUpFirstLetter(Value);
    SetField(fieldOriginalTitle, Value);
    BeginPos := pos(' ', Line) + 6;
    if BeginPos > 0 then
    begin
      EndPos := Length(Line);
      Value := copy(Line, BeginPos, EndPos - BeginPos);
      BeginPos := pos('(', Value) + 1;
      EndPos := pos(')', Value);
      if (BeginPos > 0) and (EndPos > 0) then
      begin
        FullValue := copy(Value, BeginPos, EndPos - BeginPos);
        SetField(fieldYear, FullValue);
      end;
    end;
  end;

  // Director
  LineNr := FindLine('╨σµΦ±±σ≡:', Page, 0);
  if LineNr > -1 then
  begin
    Value := '';
    Line := Page.GetString(LineNr);
    BeginPos := pos('</B> ', Line) + 5;
    EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    HTMLRemoveTags(Value);
    SetField(fieldDirector, Value);
  end;

  // Actors
  LineNr := FindLine('┬ ≡εδ ⌡:', Page, 0);
  if LineNr > -1 then
  begin
    Value := '';
    Line := Page.GetString(LineNr);
    BeginPos := pos('</B> ', Line) + 5;
    EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    HTMLRemoveTags(Value);
    SetField(fieldActors, Value);
  end;

  //Country
  LineNr := FindLine('<br><I>', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('<br><I>', Line) + 7;
    EndPos := pos(' ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    SetField(fieldCountry, Value);
  end;

  //Category
  LineNr := FindLine('IdGenre=', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('">', Line) + 2;
    EndPos := pos('</a>', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    SetField(fieldCategory, Value);
  end;

  //Year and Length - LineNr is from the previous search
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr + 2);
    BeginPos := 1;
    EndPos := pos('; ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLRemoveTags(Value);
    SetField(fieldYear, Value);

    BeginPos := pos('; ', Line) + 7;
    EndPos := Length(Line);
    Line := copy(Line, BeginPos, EndPos - BeginPos);
    BeginPos := 1;
    EndPos := pos(',', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    MovieLength := StrToInt(Value, 0) * 60;
    BeginPos := EndPos + 1;
    EndPos := pos(';&', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    MovieLength := MovieLength + StrToInt(Value, 0);
    if MovieLength > 0 then
      SetField(fieldLength, IntToStr(MovieLength));
  end;

  //Description
  Value2 := '<p align="JUSTIFY">';
  LineNr := FindLine( Value2, Page, 0);
  if LineNr = -1 then
  begin
    Value2 := '<p align=justify>';
    LineNr := FindLine(Value2, Page, 0);
  end;
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos(Value2, Line) + Length(Value2);
    EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    Value := StringReplace(Value, '<br>', #13#10);
    Value := StringReplace(Value, '<BR>', #13#10);
    Value := StringReplace(Value, '<p', #13#10#13#10 + '<p');
    HTMLRemoveTags(Value);
    SetField(fieldDescription, Value);
  end;

  DisplayResults;
end;

procedure AnalyzeVideoPage(Page: TStringList);
var
  Line, Value, Value2, FullValue: string;
  LineNr, MovieLength: Integer;
  BeginPos, EndPos: Integer;
begin

  // Title, Original Title, Country, Year, Length, Category
  LineNr := FindLine('<p><b><a href="card_film.asp?IDFilm=', Page, 0);
  if LineNr = -1 then
    LineNr := FindLine('<p><b><font color="Navy">', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    // Title
    BeginPos := pos('">', Line) + 2;
    EndPos := pos('</b>', Line);
    if EndPos = 0 then
      EndPos := Length(Line);
    FullValue := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(FullValue);
    HTMLRemoveTags(FullValue);
    FullValue := AnsiLowerCase(FullValue);
    FullValue := AnsiUpFirstLetter(FullValue);
    SetField(fieldOriginalTitle, FullValue);

    // Original Title (if exists)
    BeginPos := pos('<br><small>/', Line) + 12;
    EndPos := pos('/  ', Line);
    if (BeginPos > 0) and (EndPos > 0) then
    begin
      Value := copy(Line, BeginPos, EndPos - BeginPos);
      HTMLDecode(Value);
      HTMLRemoveTags(Value);
      Value := AnsiLowerCase(Value);
      Value := AnsiMixedCase(Value, ' .-');
      SetField(fieldOriginalTitle, Value);
      SetField(fieldTranslatedTitle, FullValue);
      Delete(Line, 1, EndPos + 7);
    end;

    // Country
    BeginPos := pos('<br><small>', Line);
    if BeginPos = 0 then
      BeginPos := 1;
    EndPos := pos('  ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    HTMLRemoveTags(Value);
    SetField(fieldCountry, Value);
    Delete(Line, 1, EndPos + 6);

    // Year and Length
    BeginPos := 1;
    EndPos := pos('  ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    SetField(fieldYear, Value);

    BeginPos := pos('  ', Line) + 7;
    EndPos := pos(' ∞Φφ', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    SetField(fieldLength, Value);
  end;

  //Category
  LineNr := FindLine('</small><br>', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('</small><br>', Line) + 12;
    EndPos := Length(Line) + 1;
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    SetField(fieldCategory, Value);
  end;

  // Director
  LineNr := FindLine('╨σµΦ±±σ≡:', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('</b> ', Line) + 5;
    EndPos := Length(Line) + 1;
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    HTMLRemoveTags(Value);
    SetField(fieldDirector, Value);
  end;

  // Actors
  LineNr := FindLine('<BR><b>┬ ≡εδ ⌡:</b>', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('</b>  ', Line) + 6;
    EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    HTMLRemoveTags(Value);
    SetField(fieldActors, Value);
  end;

  //Description
  LineNr := FindLine('<p align="JUSTIFY">', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('<p align="JUSTIFY">', Line) + 19;
    EndPos := Length(Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    Value := StringReplace(Value, '<br>', #13#10);
    Value := StringReplace(Value, '<BR>', #13#10);
    Value := StringReplace(Value, '<p', #13#10#13#10 + '<p');
    HTMLRemoveTags(Value);
    SetField(fieldDescription, Value);
  end;

  DisplayResults;
end;

procedure AnalyzeRedirectPage(Page: TStringList);
var
  Address: string;
  BeginPos, EndPos: Integer;
begin
  BeginPos := pos('ReDirect("', Page.Text) + 10;
  EndPos := pos('")</script>', Page.Text);
  Address := BaseAddress + copy(Page.Text, BeginPos, EndPos - BeginPos);
  AnalyzePage(Address);
end;

procedure AddFindMoreLink(Page: TStringList; var LineNr: Integer);
var
  Line, Value, Address: string;
  StartPos, EndPos: Integer;
begin
  Line := Page.GetString(LineNr);
  StartPos := pos('╤∞. ≥αΩµσ:</b> ε±≥αΓ°Φσ±  <a href="', Line) + 35;
  EndPos := pos('</a> ⌠Φδⁿ∞', Line);
  Value := copy(Line, StartPos, EndPos - StartPos);
  StartPos := 1;
  EndPos := pos('">', Value);
  Address := BaseAddress + copy(Value, StartPos, EndPos - StartPos);
  PickTreeMoreLink(Address);
end;

procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
var
  Line: string;
  MovieTitle, MovieAddress: string;
  StartPos, EndPos: Integer;
begin
  repeat
    LineNr := LineNr + 1;
    Line := Page.GetString(LineNr);
    StartPos := pos('="', Line);
    EndPos := pos('</OL>', Line);
    if (StartPos > 0) and (EndPos = 0) then
    begin
      StartPos := StartPos + 2;
      MovieAddress := copy(Line, StartPos, pos('">', Line) - StartPos);
      StartPos := pos('">', Line) + 2;
      MovieTitle := copy(Line, StartPos, pos('</a>', Line) - StartPos);
      Line := Page.GetString(LineNr + 1);
      MovieTitle := MovieTitle + copy(Line, 1, pos('</small>', Line) - 1);
      HTMLDecode(Movietitle);
      HTMLRemoveTags(MovieTitle);
      PickTreeAdd(MovieTitle, BaseAddress + MovieAddress);
    end;
  until EndPos > 0;
end;

procedure AddReleasesTitles(TextBlock: string);
var
  MovieTitle, MovieAddress: string;
  StartPos, EndPos, EndTablePos: Integer;
begin
  repeat
    StartPos := pos('<td><b><a href="', TextBlock);
    EndTablePos :=  pos('</table>', TextBlock);
    if StartPos > 0 then
    begin
      Delete(TextBlock, 1, StartPos - 1);
    end;
    if (StartPos > 0) and (StartPos < EndTablePos) then
    begin
      EndPos := pos('</td>', TextBlock);
      MovieTitle := copy(TextBlock, 1, EndPos - 1);
      HTMLDecode(MovieTitle);
      HTMLRemoveTags(MovieTitle);
      MovieAddress := copy(TextBlock, 17, pos('">', TextBlock) - 17);
      PickTreeAdd(MovieTitle, BaseAddress + MovieAddress);
      Delete(TextBlock, 1, EndPos - 1);
    end;
  until (StartPos = 0) or (StartPos > EndTablePos);
end;

begin
  if CheckVersion(3,4,0) then
  begin
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    if Input('Import from VideoGuide', 'Enter the title of the movie:', MovieName) then
    begin
      AnalyzePage('http://www.videoguide.ru/find.asp?Search=Simple&types=film&titles='+UrlEncode(MovieName));
//      AnalyzePage('http://localhost/search1.htm');
    end;
  end else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
end.